home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / GEOS / (g)g1.d64 / colony 2 (.txt) < prev    next >
Commodore BASIC  |  2009-01-03  |  3KB  |  128 lines

  1. 1 REM COLONY 2:BY WESLEY M.ALLISON:FUBRUARY 1985
  2. 2 POKE53280,10:POKE53281,6:PRINT"[147]"
  3. 3 PRINT"          *******************":PRINT"          *                 *"
  4. 4 PRINT"          *    COLONY 2     *":PRINT"          *       BY        *"
  5. 5 PRINT"          *WESLEY M. ALLISON*":PRINT"          *                 *"
  6. 6 PRINT"          *******************"
  7. 7 PX=1
  8. 8 FORT=1TO4750:NEXTT
  9. 11 PRINT"[147]COLONY 2 IS A GAME IN WHICH YOU PLAY    THE RULER OF AN ";
  10. 12 PRINT"ISLAND COLONY."
  11. 13 PRINT"IF YOU SPEND YOUR TAX MONEY WISELY,     YOUR COLONY WILL PROSPER."
  12. 14 PRINT"YOU MUST CONSTANTLY BE AWARE OF THE     DANGERS OF PLAGUE, FAMINE, OR WAR."
  13. 15 PRINT:PRINT"YOU BEGIN WITH ONE THOUSAND CITIZENS."
  14. 16 PRINT:PRINT:PRINT"          PRESS ANY KEY"
  15. 17 GETA$:IFA$=""THEN17
  16. 18 PP=1000:TX=10000:UN=0:YR=1
  17. 19 AG=500:RN=500:FS=500:HS=500:SC=500:HP=500:FT=500:TR=500:DF=500
  18. 20 S1=0:S2=0:S3=0:S4=0:S5=0:S6=0:S7=0:S8=0:S9=0
  19. 21 PRINT"[147]"
  20. 22 PRINT"DECADE"YR
  21. 23 PRINT"POPULATION"PP
  22. 24 PRINT"UNEMPLOYED"UN
  23. 25 PRINT"TAXES \";TX
  24. 26 PRINT"HOW MUCH TAX MONEY DO YOU WISH TO SPEND ON..."
  25. 27 INPUT"AGRICULTURE";S1:IFS1>TXTHEN27
  26. 28 S1=INT(S1)
  27. 29 TX=TX-S1:PRINT"TAXES REMAINING=":PRINT"\";TX
  28. 30 INPUT"RANCHING";S2
  29. 31 S2=INT(S2)
  30. 32 TX=TX-S2:PRINT"TAXES REMAINING=":PRINT"\";TX
  31. 33 INPUT"FISHING";S3:IFS3>TXTHEN33
  32. 34 S3=INT(S3)
  33. 35 TX=TX-S3:PRINT"TAXES REMAINING=":PRINT"\";TX
  34. 36 INPUT"HOUSING";S4:IFS4>TXTHEN36
  35. 37 S4=INT(S4)
  36. 38 TX=TX-S4:PRINT"TAXES REMAINING=":PRINT"\";TX
  37. 39 INPUT"SCHOOLS";S5:IFS5>TXTHEN39
  38. 40 S5=INT(S5)
  39. 41 TX=TX-S5:PRINT"TAXES REMAINING=":PRINT"\";TX
  40. 42 INPUT"HOSPITALS";S6:IFS6>TXTHEN42
  41. 43 S6=INT(S6)
  42. 44 TX=TX-S6:PRINT"TAXES REMAINING=":PRINT"\";TX
  43. 45 INPUT"FACTORIES";S7:IFS7>TXTHEN45
  44. 46 S7=INT(S7)
  45. 47 TX=TX-S7:PRINT"TAXES REMAINING=":PRINT"\";TX
  46. 48 INPUT"TRANSPORTATION";S8:IFS8>TXTHEN48
  47. 49 S8=INT(S8)
  48. 50 TX=TX-S8:PRINT"TAXES REMAINING=":PRINT"\";TX
  49. 51 INPUT"DEFENCE";S9:IFS9>TXTHEN51
  50. 52 S9=INT(S9)
  51. 53 TX=TX-S9:PRINT"\";TX
  52. 54 PRINT"CARRIED OVER TO NEXT YEAR."
  53. 55 PRINT"           HIT A KEY"
  54. 56 GETA$:IFA$=""THEN56
  55. 57 PRINT"[147]"
  56. 58 AG=INT((AG+S1)*.9)
  57. 59 RN=INT((RN+S2)*.9)
  58. 60 FS=INT((FS+S3)*.9)
  59. 61 HS=INT((HS+S4)*.9)
  60. 62 SC=INT((SC+S5)*.8)
  61. 63 HP=INT((HP+S6)*.95)
  62. 64 FT=INT((FT+S7)*.7)
  63. 65 TR=INT(TR+S8)
  64. 66 DF=INT((DF+S9)*.8)
  65. 67 ZA=INT(1+100*RND(0))
  66. 68 IFZA>10THEN70
  67. 69 PRINT"YOUR CROPS HAVE BEEN DESTROYED          BY BLIGHT!":AG=0
  68. 70 ZB=INT(1+100*RND(0))
  69. 71 IFZB>10THEN73
  70. 72 PRINT"YOUR CATTLE HAVE BEEN KILLED BY         DISEASE!":RN=0
  71. 73 ZC=INT(1+100*RND(0))
  72. 74 IFZC>10THEN76
  73. 75 PRINT"YOUR FISHING FLEET HAS BEEN DESTROYED   BY A TYPHOON":FS=0
  74. 76 PRINT"           HIT A KEY"
  75. 77 GETA$:IFA$=""THEN77
  76. 78 PRINT"[147]        STATUS"
  77. 79 P1=INT(AG/PP*100)
  78. 80 P2=INT(RN/PP*100)
  79. 81 P3=INT(FS/PP*100)
  80. 82 P4=INT(HS/PP*100)
  81. 83 P5=INT(SC/PP*100)
  82. 84 P6=INT(HP/PP*100)
  83. 85 P7=INT(FT/PP*100)
  84. 86 P8=INT(TR/PP*100)
  85. 87 P9=INT(DF/PP*100)
  86. 88 PRINT"AGRO="P1"%"
  87. 89 PRINT"RNCH="P2"%"
  88. 90 PRINT"FISH="P3"%"
  89. 91 PRINT"HOUS="P4"%"
  90. 92 PRINT"SCHL="P5"%"
  91. 93 PRINT"HOSP="P6"%"
  92. 94 PRINT"FACT="P7"%"
  93. 95 PRINT"TRAN="P8"%"
  94. 96 PRINT"DFNC="P9"%"
  95. 97 PRINT"           HIT A KEY"
  96. 98 GETA$:IFA$=""THEN98
  97. 99 PRINT"[147]"
  98. 100 ZD=INT(1+100*RND(0))
  99. 101 IFZD>10THEN106
  100. 102 PRINT"THERE IS A PLAGUE!"
  101. 103 ZF=PP-HP:IFZF<0THENZF=0
  102. 104 PRINTZF"PEOPLE DIE."
  103. 105 PP=PP-ZF
  104. 106 ZE=INT(1+100*RND(0))
  105. 107 IFZE>10THEN113
  106. 108 PRINT"THERE IS AN INVASION!"
  107. 109 IFDF<PPTHEN112
  108. 110 PRINT"THE INVADERS ARE DEFEATED!"
  109. 111 GOTO113
  110. 112 PRINT"YOUR COLONY IS DESTROYED                YOU ARE KILLED.":GOTO130
  111. 113 PRINT"           HIT A KEY"
  112. 114 GETA$:IFA$=""THEN114
  113. 115 IA=(AG+RN+FS+HS)/4
  114. 116 IB=INT(IA-PP*1.1)
  115. 117 PP=PP+IB:IFPP<=0THEN126
  116. 118 ID=(SC+FT+TR)/3
  117. 119 IE=INT(PP-ID)
  118. 120 IFIE<0THENIE=0
  119. 121 UN=IE:IFPP>PXTHENPX=PP
  120. 122 IG=(PP-UN)*3
  121. 123 TX=TX+IG
  122. 124 YR=YR+1
  123. 125 GOTO20
  124. 126 PRINT"[147]YOUR PEOPLE ARE GONE YOU HAVE FAILED.":GOTO130
  125. 130 PRINT"           GAME OVER"
  126. 131 PRINT"      SCORE="YR*PX
  127. 132 PRINT"HIT RESTORE TO REBOOT GEOS":END
  128.